10 REM ** PREPARED BY DAVID BRADLEY **
90 PRINT"[147]"
100 POKE53280,0:POKE53281,0:PRINT"";
110 READNM:DIMTT$(NM),TL$(NM),RN$(NM)
120 FORI=1TONM:READTT$(I),TL$(I),RN$(I):NEXTI
125 PRINT"[147]":PRINTTAB(10):PRINT"[129]****[158][205][197][206][213]/[204][207][193][196][197][210][146]***[129]*[158]":PRINT
135 PRINT"[197][206][212][197][210][160][217][207][213][210][160][195][200][207][201][195][197][160][193][206][196][160][208][210][197][211][211][160][210][197][212][213][210][206][146]"
137 PRINT:PRINT
140 FORI=1TONM
150 PRINTTAB(12)RIGHT$("0"+MID$(STR$(I),2),2)") "TT$(I)
155 NEXTI
162 REM *RIATE LINE 163 THROUGH 169.  *         *******************************
164 PRINT"[156][212][208][213][199] [205][193][217] [195]64 [196][201][211][203] ([205][197][206][213] #1)[146][158]"
170 INPUT"[217][207][213][210][160][195][200][207][201][195][197]";A$
171 IFA$="Q"THENPRINT"[147]":END
172 IFA$="L"THENPRINT"[147]":LIST
180 A=VAL(A$):IF(A<1ORA>NM)ANDA$<>CHR$(80)THENPRINT"[145]";:GOTO170
185 IFA$=CHR$(80)THENGOSUB250:PRINT"";:GOTO170
190 PRINT"[147][142]LOAD"CHR$(34)TL$(A)CHR$(34)",8,1"
200 PRINT""RN$(A)
210 POKE198,3:POKE631,19:POKE632,13:POKE633,13
220 END
250 RESTORE:READNM
252 FORI=1TONM:READTT$(I),TL$(I),RN$(I):NEXTI
270 OPEN4,4:PRINT#4,CHR$(10)CHR$(10)CHR$(10);"  ":CD$=CHR$(17)
272 FORI=1TONM:PRINT#4,CD$;CHR$(16);"15";TT$(I):NEXTI
274 PRINT#4,"   "CHR$(10)CHR$(10):CLOSE4:RETURN
900 REM
910 REM
920 REM
990 REM PROGRAM DATA
1000 DATA 15
1010 DATA"[204]IST-[205]E ([195])[212]9",LIST-ME (C)T9.L,LIST
1020 DATA"[196]IR [211]ORT",DIR SORT.C,RUN
1030 DATA"[194]AM",BAM.C,RUN
1040 DATA"[194]LOCK [198]REE",BLOCK FREE.C,RUN
1050 DATA"[194]OOT [196]OS 5.2",BOOT DOS 5.2.C,RUN
1060 DATA"[195]OCKROACH 1[196]",COCKROACH 1D.C,RUN
1070 DATA"[195]OCKROACH 1",COCKROACH 1.C,RUN
1080 DATA"[195]OCKROACH 2[196]",COCKROACH 2D.C,RUN
1090 DATA"[195]OCKROACH [197]",COCKROACH E.C,RUN
1100 DATA"[196]IR [210]EAD",DIR READ.C,RUN
1110 DATA"[198]AST [194][193][205]",FAST BAM.C,RUN
1120 DATA"[198]UNCTION [203]EYS",FUNCTION KEYS.C,LIST2-9
1130 DATA"[204]OCK-[213]NLOCK",LOCK UNLOCK.C,RUN
1140 DATA"[210]ECOVER 1541",RECOVER 1541.C,RUN
1150 DATA"[205][207][210][197] [205][197][206][213]",MORE MENU,RUN